home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 4 / Digital_Talk_04_1993-12-10_Digital_Talk_de_Side_B.d64 / 8. cursor editor (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  59 lines
  1. 10 data120,169,51,133,1,169,,133,251,133,253,169,208,133,252,169,48,133,254,160
  2. 20 data0,177,251,145,253,200,208,249,230,252,230,254,165,252,201,216,208,237,169
  3. 30 data55,133,1,88,96:forl=0to43:reads:poke49152+l,s:nextl:sys49152:
  4. 40 poke53272,28:poke53280,4:poke53281,7:print"[147][144]"spc(13)"digital  talk":cn=94
  5. 50 printspc(13)"cursor editor":print" (w) by ford prefect  freeware from dt "
  6. 55 gosub60:goto75
  7. 60 print"     [176][192][192][192][192][192][192][192][192][174]":forl=0to7:print"     [221]********[221]":nextl:
  8. 70 print"     [173][192][192][192][192][192][192][192][192][189][145][145][145][145]":printspc(23)"_ - set cursor":printspc(23)"e - end"
  9. 72 printspc(23)"c - clear":printspc(23)"l - load":printspc(23)"s - save":return
  10. 75 q=12288:zn=cn*8:gosub250
  11. 80 p=1024+(40*(7+y))+(6+x):pokep,peek(p)+128:poke1364,cn:yp=peek(p)-128
  12. 90 geta$:ifa$=""thenify<7thenpokep,peek(p)-128:y=y+1:goto80
  13. 100 ifa$="[145]"thenify>0thenpokep,peek(p)-128:y=y-1:goto80
  14. 110 ifa$=""thenifx<7thenpokep,peek(p)-128:x=x+1:goto80
  15. 120 ifa$="[157]"thenifx>0thenpokep,peek(p)-128:x=x-1:goto80
  16. 130 ifa$=chr$(13)thengosub170:goto80
  17. 140 ifa$="_"thengosub270
  18. 150 ifa$="e"thenend
  19. 152 ifa$="c"thengosub260:goto80
  20. 154 ifa$="l"thengosub350:l$="":poke198,0:goto80
  21. 156 ifa$="s"thengosub300:s$="":poke198,0:goto80
  22. 160 goto90
  23. 170 ifpeek(p)=170thenpokep,46:pokeq+y+zn,peek(q+y+zn)-2^(7-x):return
  24. 180 pokep,42:pokeq+y+zn,peek(q+y+zn)or2^(7-x):return
  25. 250 forl=0to7:pokeq+l+zn,255:nextl:return
  26. 260 forl=0to7:pokeq+l+zn,0:nextl:forl=0to7:forr=0to7:poke1024+(l+7)*40+(6+r),46:
  27. 262 nextr:nextl:return
  28. 270 print"bitte warten ..."
  29. 271 fori=128to255:foru=0to7:
  30. 280 pokeq+i*8+u,peek(q+(i-128)*8+u)orpeek(q+u+zn):nextu:nexti:print" fertig ! "
  31. 290 fortp=0to1000:nexttp:print"[145][145]                 ":print"             ":return
  32. 300 input" save - name ";s$:ifs$=""thenprint"[145]                           [145]":pokep,yp:return
  33. 305 f$=s$+",p,w":open1,8,2,f$:print#1,chr$(0);chr$(48);
  34. 310 formt=qtoq+2047:print#1,chr$(peek(mt));:nextmt:close1:
  35. 320 print"[145]                                        [145]":pokep,42:return
  36. 350 input" load - name ";l$:ifl$=""thenprint"[145]                           [145]":pokep,yp:return
  37. 355 f$=l$+",p,r":open1,8,2,f$:get#1,no$,no$
  38. 360 formt=qtoq+2047:get#1,co$:ifco$=""thenpokemt,0:goto380
  39. 370 pokemt,asc(co$):
  40. 380 next:close1:print"[145]                        ":gosub250:print"[145][145][145][145][145][145][145][145][145][145][145][145][145]";
  41. 390 gosub60:pokep,42:return
  42. 400 :
  43. 401 :
  44. 402 :
  45. 403 :
  46. 404 :
  47. 405 :
  48. 406 :
  49. 407 :
  50. 408 :
  51. 409 :
  52. 410 rem  zeichensatz wird bei jedem
  53. 420 rem  start neu kopiert. vor dem
  54. 430 rem  speichern '_' druecken !!!
  55. 440 :
  56. 450 rem  gruss
  57. 460 :
  58. 470 rem          ford prefect
  59.